home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / ritwc4.zip / RITPT1.EXE / RITUAL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-07  |  21KB  |  1,275 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  20648 bytes  03/09/122  08:28:04am
  3. '! Code Segment Size  :11691 bytes
  4. '! Data Segment Size  :5324 bytes
  5. '! String Segment Size:8957 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type29
  9.         s0 As String*40
  10.         l40 As Long
  11.       End Type
  12.  
  13.       Type Type28
  14.         s0 As String*15
  15.         s15 As String*15
  16.         s30 As String*15
  17.         s45 As String*15
  18.         s60 As String*15
  19.         s75 As String*15
  20.         s90 As String*15
  21.         s105 As String*15
  22.         s120 As String*15
  23.         s135 As String*15
  24.         s150 As String*15
  25.         s165 As String*15
  26.       End Type
  27.  
  28.       Type Type27
  29.         s0 As String*15
  30.         s15 As String*15
  31.         s30 As String*15
  32.         s45 As String*15
  33.         s60 As String*15
  34.         s75 As String*15
  35.         s90 As String*15
  36.         s105 As String*15
  37.         s120 As String*15
  38.         s135 As String*15
  39.         s150 As String*15
  40.         s165 As String*15
  41.       End Type
  42.  
  43.       Type Type26
  44.         s0 As String*15
  45.         s15 As String*15
  46.         Filler30(1 To 8) As Byte
  47.         s38 As String*2
  48.         s40 As String*15
  49.         s55 As String*7
  50.         s62 As String*7
  51.         Filler69(1 To 6) As Byte
  52.         s75 As String*1
  53.         s76 As String*3
  54.         s79 As String*3
  55.         Filler82(1 To 36) As Byte
  56.         s118 As String*15
  57.         Filler133(1 To 3) As Byte
  58.         s136 As String*3
  59.         Filler139(1 To 3) As Byte
  60.         s142 As String*4
  61.         s146 As String*4
  62.       End Type
  63.  
  64.       Declare Sub Sub3709
  65.       Declare Sub Sub3863
  66.       Declare Sub Sub4122
  67.       Declare Sub Sub4269
  68.       Declare Sub Sub4355
  69.       Declare Sub Sub4851
  70.       Declare Sub Sub4926
  71.       Declare Sub Sub5478
  72.       Declare Sub Sub5528
  73.       Declare Sub Sub5562
  74.       Declare Sub Sub5596
  75.       Declare Sub Sub7130
  76.       Declare Sub Sub8598
  77.       Declare Sub Sub9240
  78.       Declare Sub Sub9887
  79.       Declare Sub Sub10434
  80.       Declare Sub Sub10891
  81.       Declare Sub Sub11398
  82.  
  83.       Dim s4463 As String
  84.       Dim s4467 As String
  85.       Dim s4471 As String
  86.       Dim s4475 As String*1
  87.       Dim s4476 As String
  88.       Dim i4480 As Integer
  89.       Dim i4654 As Integer
  90.       Dim t26_4656 As Type26
  91.       Dim t28_4828 As Type28
  92.       Dim t27_5008 As Type27
  93.       Dim i5190 As Integer
  94.       Dim i5192 As Integer
  95.       Dim i5194 As Integer
  96.       Dim s5196 As String*1
  97.       Dim s5197 As String
  98.       Dim s5201 As String
  99.       Dim s5205 As String
  100.       Dim i5209 As Integer
  101.       Dim s5211 As String
  102.       Dim i5215 As Integer
  103.       Dim i5217 As Integer
  104.       Dim i5219 As Integer
  105.       Dim i5221 As Integer
  106.       Dim i5223 As Integer
  107.       Dim i5225 As Integer
  108.       Dim i5227 As Integer
  109.       Dim i5229 As Integer
  110.       Dim s5231 As String
  111.       Dim t5235 As Time
  112.       Dim s5239 As String
  113.       Dim t29_5243 As Type29
  114.       Dim d5287 As Date
  115.       Dim s5289 As String
  116.       Dim s5293 As String
  117.       Dim s5297 As String
  118.       Dim s5301 As String
  119.       Dim s5305 As String
  120.       Dim s5309 As String*15
  121.  
  122.       s5297 = "WCNODEID"
  123.       s5301 = Environ(s5297)
  124.       s4475 = "Y"
  125.       CurrentDate d5287
  126.       s5289 = FormatDate(d5287, "mm/dd/yy")
  127.       s5293 = FormatDate(d5287, "yy/mm/dd")
  128.       s5197 = "          @07@─────@08@══════════@07@──────"
  129.       i4654 = FreeFile
  130.       s4471 = ProgPath + "ritual.cfg"
  131.       Open s4471 For Input As i4654
  132.       Input #i4654, s4463
  133.       Input #i4654, s4467
  134.       Input #i4654, s4476
  135.       Close i4654
  136.       If s4475 = "N" Then
  137.         s4476 = "UNREGISTERED COPY"
  138.       End If
  139.   226 Sub10891
  140.       If Exists(ProgPath + "ritmaint.dat") Then
  141.         i4654 = FreeFile
  142.         Open ProgPath + "ritmaint.dat" For Input As i4654
  143.         Input #i4654, s5305
  144.         Close i4654
  145.         s5305 = UCase(s5305)
  146.         If s5305 <> s5289 Then
  147.           Del ProgPath + "ritplay.dat"
  148.           Del ProgPath + "ritmaint.dat"
  149.           If Exists(ProgPath + "ritdead.txt") Then
  150.             CopyFile(ProgPath + "ritdead.txt", ProgPath + "ritprev.txt")
  151.             Del ProgPath + "ritdead.txt"
  152.           End If
  153.         End If
  154.       End If
  155.   414 If Exists(ProgPath + "ritdead.txt") Then
  156.       Else
  157.   439   Open ProgPath + "ritdead.txt" For Output As i4654
  158.         Print #i4654, "@04@Sacrifices for the day of " + "@0C@" + s5289
  159.         Print #i4654, "       @07@─────@08@══════════@07@──────"
  160.         Close i4654
  161.       End If
  162.   514 i4654 = FreeFile
  163.       Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  164.       i4480 = 0
  165.       Do
  166.   557   i4480 = i4480 + 1
  167.         Get i4654, i4480, t26_4656 '! 172 bytes
  168.         If InStr(UCase(t26_4656.s0), UCase(Pad(User.Name, 15))) Then
  169.           GoTo 647
  170.         End If
  171.   631 Loop While Not EOF(i4654)
  172.   647 Close i4654
  173.       Sub11398
  174.       If Exists(s4463 + "armour.dat") Then
  175.         Open s4463 + "armour.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
  176.         Get i4654, -1, t28_4828 '! 180 bytes
  177.         Close i4654
  178.       Else
  179.   740   Cls 
  180.         Sub5528
  181.         Locate 5, 12
  182.         Print "@BELL@@84@ERROR!! ERROR!! @04@ARMOUR.DAT FILE NOT FOUND!!!!!!"
  183.         Locate 7, 12
  184.         Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
  185.         Sub4269
  186.         Sub5478
  187.       End If
  188.   793 If Exists(s4463 + "weapon.dat") Then
  189.         Open s4463 + "weapon.dat" For Random As i4654 Len = 180 '! This value should probably be replaced with a "SizeOf" expression
  190.         Get i4654, -1, t27_5008 '! 180 bytes
  191.         Close i4654
  192.       Else
  193.   872   Cls 
  194.         Sub5528
  195.         Locate 5, 12
  196.         Print "@BELL@@84@ERROR!! ERROR!! @04@WEAPON.DAT FILE NOT FOUND!!!!!!"
  197.         Locate 7, 12
  198.         Print "@04@Please Notify the SysOp of this Error IMMEDIATELY!!"
  199.         Sub4269
  200.         Sub5478
  201.       End If
  202.   925 If Exists(ProgPath + "ritplay.dat") Then
  203.         i4654 = FreeFile
  204.         Open ProgPath + "ritplay.dat" For Input As i4654
  205.         Do
  206.   980     Input #i4654, s5309
  207.           If InStr(UCase(s5309), UCase(t26_4656.s0)) Then
  208.             Close i4654
  209.             GoTo 1063
  210.           End If
  211.  1033   Loop While Not EOF(i4654)
  212.         Close i4654
  213.       End If
  214.  1057 GoTo 1121
  215.  1063 MorePrompt(0)
  216.       Cls 
  217.       Sub5528
  218.       Locate 5, 12
  219.       Print "@0D@Sorry....It appears that you have already played today."
  220.       Locate 7, 12
  221.       Print "@0D@Come back tomorrow - and DON'T FORGET YOUR WEAPONS!!!!!"
  222.       Sub4269
  223.       Sub5478
  224.  1121 i4654 = FreeFile
  225.       Open ProgPath + "ritplay.dat" For Append As i4654
  226.       Print #i4654, UCase(t26_4656.s0)
  227.       Close i4654
  228.       i4654 = FreeFile
  229.       Open ProgPath + "ritmaint.dat" For Output As i4654
  230.       Print #i4654, UCase(s5289)
  231.       Close i4654
  232.       Cls 
  233.       MorePrompt(0)
  234.       DisplayTextFile(ProgPath + "ritual1.bbs")
  235.       Locate 16, 21
  236.       Print "@05@Version: @0D@.65 @08@(Beta @07@1@08@/@07@7@08@/@07@96@08@)"
  237.       Locate 17, 31
  238.       Print "@0D@" + s4476
  239.       Locate 18, 31
  240.       If s4475 = "Y" Then
  241.         Print "@0D@" + MakeWild.BBSName
  242.       Else
  243.  1354   Print "@0D@UNREGISTERED BBS"
  244.       End If
  245.  1363 Sub3709
  246.       Sub4269
  247.       Cls 
  248.       MorePrompt(0)
  249.       Sub5528
  250.       Locate 5, 9
  251.       Print "@05@You wander into what appears to be an ancient place of worship@08@."
  252.       Locate 6, 9
  253.       Print "@05@There are many relics and artifacts here@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  254.       Locate 7, 9
  255.       Print "@05@Some are hanging from the walls@07@.@08@.@07@.@05@and some are on shelves@08@."
  256.       Locate 8, 9
  257.       Print "@05@The atmosphere is very forboding@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  258.       If Exists(ProgPath + "lastded.dat") Then
  259.         Open ProgPath + "lastded.dat" For Input As i4654
  260.         Input #i4654, s5239
  261.         Close i4654
  262.         If t26_4656.s15 = s5239 Then
  263.           GoTo 1591
  264.         End If
  265.  1546   Locate 9, 9
  266.         Print "@05@You see the corpse of " + "@0D@" + Trim(s5239) + "@05@ in a corner@07@.@08@.@07@.@08@."
  267.       Else
  268.  1591   Locate 9, 9
  269.         Print "@05@You see the decayed remains of a Warrior in a corner@07@.@08@.@07@.@08@.@07@."
  270.       End If
  271.  1607 Locate 10, 9
  272.       Print "@05@You feel as though you are being watched closely@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  273.       Locate 11, 9
  274.       Print "@05@But that's ridiculous! There's no one here!@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  275.       Delay 2
  276.       Locate 13, 30
  277.       Print "@05@or is there??"
  278.       Sub4269
  279.       Sub5528
  280.       Locate 5, 9
  281.       Print "@05@You hear some shuffling sounds from behind a curtain@07@.@08@.@07@.@08@.@07@.@08@."
  282.       Locate 6, 9
  283.       Print "@05@You yell in your most fierce growl@07@.@08@.@07@.@08@.@07@.@08@.@07@.@0D@WHO GOES THERE@05@?!?"
  284.       Locate 7, 9
  285.       Print "@05@There's no response@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  286.       Locate 8, 9
  287.       Print "@05@Then the room begins to fill with a very eerie @08@Opaque Mist@07@.@08@.@07@.@08@.@07@."
  288.       Locate 9, 9
  289.       Print "@05@As suddenly as it appears it vanishes@07@.@08@.@07@.@08@.@07@.@08@."
  290.       Locate 10, 9
  291.       Print "@05@Before you stands a very evil and powerful looking Warlock@08@."
  292.       Delay 2
  293.       Locate 12, 30
  294.       Print "@0D@The Warlock speaks"
  295.       Sub4269
  296.       Sub5528
  297.       Locate 5, 9
  298.       Print "@05@I know of many things@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  299.       Locate 6, 9
  300.       Print "@05@You are the warrior known as " + "@0D@" + Trim(t26_4656.s15) + "@05@ - are you not??"
  301.       Locate 7, 9
  302.       Print "@05@It is as I thought@07@.@08@.@07@.@08@.@07@.@08@.@05@You cannot hide your thoughts from me@07@.@08@."
  303.       Locate 8, 9
  304.       Print "@05@I also know of your intent to kill my master@07@.@08@.@07@.@08@.@07@.@0D@The Lachrymator@05@."
  305.       Locate 9, 9
  306.       Print "@05@I will not make him aware of your quest of course@07@.@08@.@07@.@08@.@07@."
  307.       Locate 10, 9
  308.       Print "@05@I shall profit greatly from his demise@08@."
  309.       Locate 11, 9
  310.       Print "@05@If you can bring yourself to trust me @08@- @05@I can help you@07@.@08@.@07@.@08@.@07@."
  311.       Locate 12, 9
  312.       Print "@05@But I warn you@07@.@08@.@07@.@08@.@05@my services are not without risk@07@.@08@.@07@.@08@.@07@ ."
  313.       Delay 2
  314.       Locate 14, 9
  315.       Print "@05@Might I interest you in my more than generous offer (@0D@Y@05@/@0D@N@05@)??"
  316.       Do
  317.  1988   Locate 23, 1
  318.         s5196 = InKey(1213417543)
  319.         If InStr("YN", UCase(s5196)) Then
  320.           GoTo 2044
  321.         End If
  322.  2038 Loop
  323.  2044 If (UCase(s5196) = "N") = 0 Then GoTo 2255
  324.       Do
  325.  2066   Sub5528
  326.         Locate 5, 9
  327.         Print "@05@You are a foolish stupid warrior, " + "@0D@" + Trim(t26_4656.s15) + "@05@!!!!"
  328.         Locate 6, 9
  329.         Print "@05@For your insolence I should by all means take your life@07@.@08@.@07@.@08@.@07@.@08@."
  330.         Locate 7, 9
  331.         Print "@05@But as we all know@07@.@08@.@07@.@05@The Master won't allow it@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  332.         Locate 8, 9
  333.         Print "@05@Well@07@.@08@.@07@.@05@not without your permission of course@07@.@08@.@07@.@08@.@07@.@08@."
  334.         Locate 9, 9
  335.         Print "@05@I'm sure you wouldn't do that@07@.@08@.@07@.@08@.@05@you're too smart for that@07@.@08@.@07@."
  336.         Locate 10, 9
  337.         Print "@05@So I guess I have to send you back to the world@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  338.         Locate 11, 9
  339.         Print "@05@I'll get you sooner or later@07@.@08@.@07@.@05@you can count on that Warrior!"
  340.         Delay 2
  341.         Locate 13, 9
  342.         Print "@05@With those words you are teleported back to the realm@07@.@08@.@07@.@08@.@07@."
  343.         Sub4269
  344.         Sub5478
  345.         GoTo 3016
  346.  2255   If (UCase(s5196) = "Y") = 0 Then GoTo 3016
  347.         Sub5528
  348.         Locate 5, 9
  349.         Print "@05@Then it shall be@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  350.         Locate 6, 9
  351.         Print "@05@First you must voluntarily lie upon my sacrificial altar@07@.@08@.@07@."
  352.         Locate 7, 9
  353.         Print "@0D@" + Trim(t26_4656.s15) + "@05@, are you willing to do this of your own free will?"
  354.         Locate 9, 9
  355.         Print "@05@(@0D@I@05@)'m willing to make this sacrifice mighty @0D@Warlock!"
  356.         Locate 11, 9
  357.         Print "@05@(@0D@T@05@)ake a flying leap @0D@Warlock@05@! I'm outa here!"
  358.         Do
  359.  2385     Locate 23, 1
  360.           s5196 = InKey(1213417543)
  361.           If InStr("IT", UCase(s5196)) Then
  362.             GoTo 2441
  363.           End If
  364.  2435   Loop
  365.  2441   If (UCase(s5196) = "T") = 0 Then GoTo 2475
  366.       Loop
  367.       GoTo 3016
  368.  2475 If UCase(s5196) = "I" Then
  369.         Sub5562
  370.         Locate 5, 9
  371.         Print "@0D@What can it hurt? @05@You think to yourself@07@.@08@.@07@.@08@.@07@."
  372.         Locate 6, 9
  373.         Print "@05@Nervously you eye the altar@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  374.         Locate 7, 9
  375.         Print "@05@The carved stone and hardwood makes you a bit uneasy@07@.@08@.@07@."
  376.         Locate 8, 9
  377.         Print "@05@The heavy scent of death fills the air@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  378.         Locate 9, 9
  379.         Print "@05@You carefully lie down on the table@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  380.         Locate 10, 9
  381.         Print "@05@Suddenly @0D@MaGiC ChAiNs @05@bind you to the altar!"
  382.         Locate 11, 9
  383.         Print "@05@You can't move!! Now what's going to happen to you???"
  384.         Sub4269
  385.         Sub5562
  386.         Locate 5, 9
  387.         Print "@0D@The Warlock @05@utters some ancient spells and incantations@07@.@08@.@07@.@08@.@07@."
  388.         Locate 6, 9
  389.         Print "@05@The room starts to spin@07@.@08@.@07@.@08@.@05@you feel @0D@REALLY SICK@05@!!"
  390.         Locate 7, 9
  391.         Print "@0D@Now we must wait@07@.@08@.@07@.@08@.@05@mutters @0D@The Warlock@07@.@08@.@07@.@08@.@07@.@08@."
  392.         Locate 8, 9
  393.         Print "@05@Your fate lies in the hands of your gods now " + "@0D@" + Trim(t26_4656.s15) + "@05@."
  394.         Locate 20, 17
  395.         Sub4355
  396.         Sub4269
  397.         Sub5562
  398.         Locate 5, 9
  399.         Print "@05@The room is suddenly filled by a blinding flash of light@07@.@08@.@07@.@08@.@07@.@08@."
  400.         Locate 6, 9
  401.         Print "@05@When the room returns to normal the @0D@MaGiC ChAiNs @05@vanish@07@.@08@.@07@.@08@."
  402.         Locate 7, 9
  403.         Print "@05@You can now move freely!"
  404.         Locate 8, 9
  405.         Print "@0D@The Warlock @05@is no longer here @08@-@05@ Where did he go??"
  406.         Locate 9, 9
  407.         Print "@05@Oh well@07@.@08@.@07@.@05@it's probably for the best anyways@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  408.         Locate 10, 9
  409.         Print "@0D@The Warlock @05@makes you nervous@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  410.         Locate 11, 9
  411.         Print "@05@You get up and take stock in yourself@07@.@08@.@07@.@08@.@07@.@08@."
  412.         Sub4355
  413.         Sub4269
  414.         Sub5562
  415.         Locate 5, 9
  416.         Print "@05@After carefully looking over yourself you notice a change@07@.@08@.@07@.@08@.@07@."
  417.         Locate 6, 9
  418.         Print "@05@Yes indeed@07@.@08@.@07@.@08@.@05@there has been a change made!"
  419.         Locate 8, 9
  420.         Print "@0D@Through this experience you have gained the following:"
  421.         Locate 10, 21
  422.         Print "@01@▐@08@■@07@■@0F@■@07@■@08@■@18@▌@07@»»»»»»»»»»»»»»»»»»»»»»»»»»»»"
  423.         Locate 12, 21
  424.         Print "@07@««««««««««««««««««««««««««««@18@▐@08@■@07@■@0F@■@07@■@08@■@01@▌"
  425.         Sub10434
  426.         Locate i5192, i5194
  427.         Print "@0D@" + s5211
  428.         Sub4269
  429.         If (i5215 = 1) = 0 Then GoTo 3016
  430.       Else
  431.  3016   Sub5562
  432.         Sub3863
  433.         Locate 4, 9
  434.         Print "@05@You shriek in agonizing pain@07@.@08@.@07@.@08@.@07@.@08@."
  435.         Locate 5, 9
  436.         Print "@05@You begin to vomit all over yourself@07@.@08@.@07@.@08@.@07@.@08@."
  437.         Locate 6, 9
  438.         Print "@05@Blood starts to seep from all your pores@07@.@08@.@07@.@08@.@07@."
  439.         Locate 7, 9
  440.         Print "@05@You feel a great pressure building up inside your head"
  441.         Locate 8, 9
  442.         Print "@05@Then you EXPLODE! Your body parts are strewn across the room!"
  443.         Locate 9, 9
  444.         Print "@05@The last thing you remember as you die is@07@.@08@.@07@.@08@.@07@.@08@.@0D@The Warlock@08@."
  445.         Locate 10, 9
  446.         Print "@05@He's standing over your mangled body@07@.@08@.@07@.@08@.@07@.@08@.@05@Then he hisses"
  447.         Locate 11, 9
  448.         Print "@05@Your SOUL will make a splendid GIFT to the Lachrymator@07@.@08@.@07@.@05@Warrior!"
  449.         Locate 12, 15
  450.         Print "@8D@YOU HAVE DIED!!!.......RETURNING TO LACHRYMATOR"
  451.         Open ProgPath + "lastded.dat" For Output As i4654
  452.         Print #i4654, t26_4656.s15
  453.         Close i4654
  454.         Sub4269
  455.         If s4475 = "N" Then
  456.           Sub4926
  457.         End If
  458.  3257   End 
  459.       End If
  460.       Do
  461.         Do
  462.  3258     Sub5528
  463.           Locate 5, 9
  464.           Print "@05@You now have something to tell your grandkids about@07@.@08@.@07@.@08@."
  465.           Locate 6, 9
  466.           Print "@05@You have survived @0D@T@05@he @0D@R@05@itual @0D@A@05@ltar!!"
  467.           Locate 7, 9
  468.           Print "@05@For today at least@07@.@08@.@07@.@08@.@07@.@05@there's always another day!"
  469.           Locate 8, 9
  470.           Print "@05@But you can at least say that you lived@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  471.           Locate 9, 9
  472.           Print "@05@Some warriors aren't as lucky@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  473.           Locate 10, 9
  474.           Print "@05@Would you care to see those that have perished in this realm?"
  475.           Locate 12, 20
  476.           Print "@05@(@0D@T@05@)oday's Sacrifices"
  477.           Locate 13, 20
  478.           Print "@05@(@0D@Y@05@)esterday's Sacrifices"
  479.           Locate 14, 20
  480.           Print "@05@(@0D@Q@05@)uit back to Lachrymator"
  481.           Do
  482.  3408       Locate 23, 1
  483.             s5196 = InKey(1213417543)
  484.             If InStr("TYQ", UCase(s5196)) Then
  485.               GoTo 3464
  486.             End If
  487.  3458     Loop
  488.  3464     If (UCase(s5196) = "T") = 0 Then GoTo 3540
  489.           If Exists(ProgPath + "ritdead.txt") Then
  490.             Cls 
  491.             DisplayTextFile(ProgPath + "ritdead.txt")
  492.             Sub4269
  493.           End If
  494.  3528   Loop
  495.         GoTo 3644
  496.  3540   If (UCase(s5196) = "Y") = 0 Then GoTo 3616
  497.         If Exists(ProgPath + "ritprev.txt") Then
  498.           Cls 
  499.           DisplayTextFile(ProgPath + "ritprev.txt")
  500.           Sub4269
  501.         End If
  502.  3604 Loop
  503.       GoTo 3644
  504.  3616 If UCase(s5196) = "Q" Then
  505.         Sub5478
  506.       End If
  507.  3644 End 
  508.  
  509. '! Called 1 time
  510.       Sub Sub3709
  511.         s5201 = "@0D@" + Trim(t26_4656.s15) + " @05@traveled to @0D@T@05@he @0D@R@05@itual @0D@A@05@ltar@84@!"
  512.         s5205 = "@05@Hmmmm....I wonder why " + "@0D@" + Trim(t26_4656.s15) + "@05@ went there?"
  513.         Open s4463 + "today.txt" For Append As i4654
  514.         Print #i4654, s5201
  515.         Print #i4654, s5205
  516.         Print #i4654, s5197
  517.         Close i4654
  518.       End Sub
  519.  
  520. '! Called 1 time
  521.       Sub Sub3863
  522.         s5201 = "@0D@" + Trim(t26_4656.s15) + " @05@was sacrificed on @0D@T@05@he @0D@R@05@itual @0D@A@05@ltar@84@!"
  523.         s5205 = "@05@We all shall mourn the passing of " + "@0D@" + Trim(t26_4656.s15) + " @05@the Warrior...."
  524.         Open s4463 + "today.txt" For Append As i4654
  525.         Print #i4654, s5201
  526.         Print #i4654, s5205
  527.         Print #i4654, s5197
  528.         Close i4654
  529.         CurrentTime t5235
  530.         s5231 = FormatTime(t5235, "hh:mm:ss")
  531.         Open ProgPath + "ritdead.txt" For Append As i4654
  532.         Print #i4654, "@0C@" + Trim(t26_4656.s15) + "@04@ was sacrificed at " + "@0C@" + s5231
  533.         Close i4654
  534.       End Sub
  535.  
  536. '! Called 1 time
  537.       Sub Sub4122
  538.         s5201 = "@0D@" + Trim(t26_4656.s15) + " @05@managed to make it back alive from @0D@T@05@he @0D@R@05@itual @0D@A@05@ltar@84@!"
  539.         s5205 = "@0D@" + Trim(t26_4656.s15) + " @05@has had a RELIGIOUS EXPERIENCE!!!"
  540.         Open s4463 + "today.txt" For Append As i4654
  541.         Print #i4654, s5201
  542.         Print #i4654, s5205
  543.         Print #i4654, s5197
  544.         Close i4654
  545.       End Sub
  546.  
  547. '! Called 15 times
  548.       Sub Sub4269
  549.         Locate 22, 27
  550.         Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
  551.         Do
  552.  4294     s5196 = InKey(1213417543)
  553.           If UCase(s5196) > "" Then
  554.             GoTo 4342
  555.           End If
  556.  4336   Loop
  557.  4342   Locate 22, 1
  558.         ClrEOL 
  559.       End Sub
  560.  
  561. '! Called 2 times
  562.       Sub Sub4355
  563.         Dim l65512 As Long
  564.         Dim i65516 As Integer
  565.         Dim l65518 As Long
  566.         Dim i65522 As Integer
  567.         Dim l65524 As Long
  568.         Dim i65528 As Integer
  569.         Dim l65530 As Long
  570.         Dim i65534 As Integer
  571.  
  572.  4385   For i5190 = 17 To 27 Step 1
  573.           Locate 20, i5190
  574.           Print "@0D@░"
  575.           Delay 0.1
  576.         Next
  577.  4485
  578.  4506   For i5190 = 28 To 38 Step 1
  579.           Locate 20, i5190
  580.           Print "@0D@▒"
  581.           Delay 0.1
  582.         Next
  583.  4606
  584.  4627   For i5190 = 39 To 49 Step 1
  585.           Locate 20, i5190
  586.           Print "@0D@▓"
  587.           Delay 0.1
  588.         Next
  589.  4727
  590.  4748   For i5190 = 50 To 58 Step 1
  591.           Locate 20, i5190
  592.           Print "@0D@█"
  593.           Delay 0.1
  594.         Next
  595.  4848
  596.       End Sub
  597.  
  598. '! Called 5 times
  599.       Sub Sub4851
  600.         i4654 = FreeFile
  601.         Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  602.         Put i4654, i4480, t26_4656 '! 172 bytes
  603.         Close i4654
  604.       End Sub
  605.  
  606. '! Called 2 times
  607.       Sub Sub4926
  608.         Dim l65512 As Long
  609.         Dim i65516 As Integer
  610.         Dim l65518 As Long
  611.         Dim i65522 As Integer
  612.         Dim l65524 As Long
  613.         Dim i65528 As Integer
  614.         Dim l65530 As Long
  615.         Dim i65534 As Integer
  616.  
  617.         Cls 
  618.         MorePrompt(0)
  619.         Locate 8, 17
  620.         Print "  @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
  621.         Locate 9, 17
  622.         Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
  623.         Locate 11, 17
  624.         Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
  625.  5012   For i5190 = 17 To 27 Step 1
  626.           Locate 10, i5190
  627.           Print "@0D@░"
  628.           Delay 0.1
  629.         Next
  630.  5112
  631.  5133   For i5190 = 28 To 38 Step 1
  632.           Locate 10, i5190
  633.           Print "@0D@▒"
  634.           Delay 0.1
  635.         Next
  636.  5233
  637.  5254   For i5190 = 39 To 49 Step 1
  638.           Locate 10, i5190
  639.           Print "@0D@▓"
  640.           Delay 0.1
  641.         Next
  642.  5354
  643.  5375   For i5190 = 50 To 58 Step 1
  644.           Locate 10, i5190
  645.           Print "@0D@█"
  646.           Delay 0.1
  647.         Next
  648.  5475
  649.       End Sub
  650.  
  651. '! Called 5 times
  652.       Sub Sub5478
  653.         Sub4122
  654.         Sub4851
  655.         If s4475 = "N" Then
  656.           Sub4926
  657.         End If
  658.  5524   End 
  659.       End Sub
  660.  
  661. '! Called 9 times
  662.       Sub Sub5528
  663.         Cls 
  664.         MorePrompt(0)
  665.         DisplayTextFile(ProgPath + "ritual2.bbs")
  666.       End Sub
  667.  
  668. '! Called 5 times
  669.       Sub Sub5562
  670.         Cls 
  671.         MorePrompt(0)
  672.         DisplayTextFile(ProgPath + "ritual3.bbs")
  673.       End Sub
  674.  
  675. '! Called 1 time
  676.       Sub Sub5596
  677.         Dim s65521 As String*15
  678.  
  679.         i5215 = 1
  680.         i5217 = Val(Trim(t26_4656.s38))
  681.         If i5217 = 1 Then
  682.           s65521 = t27_5008.s15
  683.         End If
  684.  5664   If i5217 = 2 Then
  685.           s65521 = t27_5008.s30
  686.         End If
  687.  5695   If i5217 = 3 Then
  688.           s65521 = t27_5008.s45
  689.         End If
  690.  5726   If i5217 = 4 Then
  691.           s65521 = t27_5008.s60
  692.         End If
  693.  5757   If i5217 = 5 Then
  694.           s65521 = t27_5008.s75
  695.         End If
  696.  5788   If i5217 = 6 Then
  697.           s65521 = t27_5008.s75
  698.         End If
  699.  5819   If i5217 = 7 Then
  700.           s65521 = t27_5008.s75
  701.         End If
  702.  5850   If i5217 = 8 Then
  703.           s65521 = t27_5008.s75
  704.         End If
  705.  5881   If i5217 = 9 Then
  706.           s65521 = t27_5008.s75
  707.         End If
  708.  5912   If i5217 = 10 Then
  709.           s65521 = t27_5008.s75
  710.         End If
  711.  5943   If i5217 = 11 Then
  712.           s65521 = t27_5008.s90
  713.         End If
  714.  5974   If i5217 = 12 Then
  715.           s65521 = t27_5008.s105
  716.         End If
  717.  6005   If t26_4656.s40 = "YOUR FISTS     " Then
  718.           i5225 = 0
  719.         End If
  720.  6034   If t26_4656.s40 = t27_5008.s0 Then
  721.           i5225 = - 10
  722.         End If
  723.  6067   If t26_4656.s40 = t27_5008.s15 Then
  724.           i5225 = - 20
  725.         End If
  726.  6104   If t26_4656.s40 = t27_5008.s30 Then
  727.           i5225 = - 30
  728.         End If
  729.  6141   If t26_4656.s40 = t27_5008.s45 Then
  730.           i5225 = - 40
  731.         End If
  732.  6178   If t26_4656.s40 = t27_5008.s60 Then
  733.           i5225 = - 50
  734.         End If
  735.  6215   If t26_4656.s40 = t27_5008.s75 Then
  736.           i5225 = - 60
  737.         End If
  738.  6252   If t26_4656.s40 = t27_5008.s90 Then
  739.           i5225 = - 70
  740.         End If
  741.  6289   If t26_4656.s40 = t27_5008.s105 Then
  742.           i5225 = - 80
  743.         End If
  744.  6326   If t26_4656.s40 = t27_5008.s120 Then
  745.           i5225 = - 90
  746.         End If
  747.  6363   If t26_4656.s40 = t27_5008.s135 Then
  748.           i5225 = - 110
  749.         End If
  750.  6400   If t26_4656.s40 = t27_5008.s150 Then
  751.           i5225 = - 150
  752.         End If
  753.  6437   If t26_4656.s40 = t27_5008.s165 Then
  754.           i5225 = - 250
  755.         End If
  756.  6474   If s65521 = "YOUR FISTS     " Then
  757.           i5221 = 0
  758.         End If
  759.  6499   If s65521 = t27_5008.s0 Then
  760.           i5221 = 10
  761.         End If
  762.  6526   If s65521 = t27_5008.s15 Then
  763.           i5221 = 20
  764.         End If
  765.  6557   If s65521 = t27_5008.s30 Then
  766.           i5221 = 30
  767.         End If
  768.  6588   If s65521 = t27_5008.s45 Then
  769.           i5221 = 40
  770.         End If
  771.  6619   If s65521 = t27_5008.s60 Then
  772.           i5221 = 50
  773.         End If
  774.  6650   If s65521 = t27_5008.s75 Then
  775.           i5221 = 60
  776.         End If
  777.  6681   If s65521 = t27_5008.s90 Then
  778.           i5221 = 70
  779.         End If
  780.  6712   If s65521 = t27_5008.s105 Then
  781.           i5221 = 80
  782.         End If
  783.  6743   If s65521 = t27_5008.s120 Then
  784.           i5221 = 90
  785.         End If
  786.  6774   If s65521 = t27_5008.s135 Then
  787.           i5221 = 110
  788.         End If
  789.  6805   If s65521 = t27_5008.s150 Then
  790.           i5221 = 150
  791.         End If
  792.  6836   If s65521 = t27_5008.s165 Then
  793.           i5221 = 250
  794.         End If
  795.  6867   s5211 = "New Weapon! You got a " + Trim(s65521) + "!"
  796.         i5192 = 11
  797.         i5194 = 21
  798.         i5229 = Val(Trim(t26_4656.s79))
  799.         i5229 = i5229 + i5225 + i5221
  800.         t26_4656.s79 = Str(i5229)
  801.         t26_4656.s40 = s65521
  802.         If Len(t26_4656.s79) > 3 Then
  803.           t26_4656.s79 = "999"
  804.         End If
  805.  7025   If Len(t26_4656.s79) <= 3 Then
  806.           t26_4656.s79 = Pad(t26_4656.s79, 3)
  807.         End If
  808.  7073   If Len(t26_4656.s40) <= 15 Then
  809.           t26_4656.s40 = Pad(t26_4656.s40, 15)
  810.         End If
  811.  7121   Sub4851
  812.       End Sub
  813.  
  814. '! Called 1 time
  815.       Sub Sub7130
  816.         Dim s65521 As String*15
  817.  
  818.         i5215 = 1
  819.         i5217 = Val(Trim(t26_4656.s38))
  820.         If i5217 = 1 Then
  821.           s65521 = t28_4828.s0
  822.         End If
  823.  7194   If i5217 = 2 Then
  824.           s65521 = t28_4828.s15
  825.         End If
  826.  7225   If i5217 = 3 Then
  827.           s65521 = t28_4828.s30
  828.         End If
  829.  7256   If i5217 = 4 Then
  830.           s65521 = t28_4828.s45
  831.         End If
  832.  7287   If i5217 = 5 Then
  833.           s65521 = t28_4828.s60
  834.         End If
  835.  7318   If i5217 = 6 Then
  836.           s65521 = t28_4828.s75
  837.         End If
  838.  7349   If i5217 = 7 Then
  839.           s65521 = t28_4828.s75
  840.         End If
  841.  7380   If i5217 = 8 Then
  842.           s65521 = t28_4828.s75
  843.         End If
  844.  7411   If i5217 = 9 Then
  845.           s65521 = t28_4828.s75
  846.         End If
  847.  7442   If i5217 = 10 Then
  848.           s65521 = t28_4828.s75
  849.         End If
  850.  7473   If t26_4656.s118 = "BIRTHDAY SUIT  " Then
  851.           i5223 = 0
  852.         End If
  853.  7502   If t26_4656.s118 = t28_4828.s0 Then
  854.           i5223 = - 10
  855.         End If
  856.  7535   If t26_4656.s118 = t28_4828.s15 Then
  857.           i5223 = - 20
  858.         End If
  859.  7572   If t26_4656.s118 = t28_4828.s30 Then
  860.           i5223 = - 30
  861.         End If
  862.  7609   If t26_4656.s118 = t28_4828.s45 Then
  863.           i5223 = - 40
  864.         End If
  865.  7646   If t26_4656.s118 = t28_4828.s60 Then
  866.           i5223 = - 50
  867.         End If
  868.  7683   If t26_4656.s118 = t28_4828.s75 Then
  869.           i5223 = - 60
  870.         End If
  871.  7720   If t26_4656.s118 = t28_4828.s90 Then
  872.           i5223 = - 70
  873.         End If
  874.  7757   If t26_4656.s118 = t28_4828.s105 Then
  875.           i5223 = - 80
  876.         End If
  877.  7794   If t26_4656.s118 = t28_4828.s120 Then
  878.           i5223 = - 90
  879.         End If
  880.  7831   If t26_4656.s118 = t28_4828.s135 Then
  881.           i5223 = - 100
  882.         End If
  883.  7868   If t26_4656.s118 = t28_4828.s150 Then
  884.           i5223 = - 110
  885.         End If
  886.  7905   If t26_4656.s118 = t28_4828.s165 Then
  887.           i5223 = - 120
  888.         End If
  889.  7942   If s65521 = "BIRTHDAY SUIT  " Then
  890.           i5219 = 0
  891.         End If
  892.  7967   If s65521 = t28_4828.s0 Then
  893.           i5219 = 10
  894.         End If
  895.  7994   If s65521 = t28_4828.s15 Then
  896.           i5219 = 20
  897.         End If
  898.  8025   If s65521 = t28_4828.s30 Then
  899.           i5219 = 30
  900.         End If
  901.  8056   If s65521 = t28_4828.s45 Then
  902.           i5219 = 40
  903.         End If
  904.  8087   If s65521 = t28_4828.s60 Then
  905.           i5219 = 50
  906.         End If
  907.  8118   If s65521 = t28_4828.s75 Then
  908.           i5219 = 60
  909.         End If
  910.  8149   If s65521 = t28_4828.s90 Then
  911.           i5219 = 70
  912.         End If
  913.  8180   If s65521 = t28_4828.s105 Then
  914.           i5219 = 80
  915.         End If
  916.  8211   If s65521 = t28_4828.s120 Then
  917.           i5219 = 90
  918.         End If
  919.  8242   If s65521 = t28_4828.s135 Then
  920.           i5219 = 100
  921.         End If
  922.  8273   If s65521 = t28_4828.s150 Then
  923.           i5219 = 110
  924.         End If
  925.  8304   If s65521 = t28_4828.s165 Then
  926.           i5219 = 120
  927.         End If
  928.  8335   s5211 = "New Armor! You got the " + Trim(s65521) + "!"
  929.         i5192 = 11
  930.         i5194 = 20
  931.         i5227 = Val(Trim(t26_4656.s76))
  932.         i5227 = i5227 + i5223 + i5219
  933.         t26_4656.s76 = Str(i5227)
  934.         t26_4656.s118 = s65521
  935.         If Len(t26_4656.s76) > 3 Then
  936.           t26_4656.s76 = "999"
  937.         End If
  938.  8493   If Len(t26_4656.s76) <= 3 Then
  939.           t26_4656.s76 = Pad(t26_4656.s76, 3)
  940.         End If
  941.  8541   If Len(t26_4656.s118) <= 15 Then
  942.           t26_4656.s118 = Pad(t26_4656.s118, 15)
  943.         End If
  944.  8589   Sub4851
  945.       End Sub
  946.  
  947. '! Called 1 time
  948.       Sub Sub8598
  949.         Dim i65532 As Integer
  950.         Dim i65534 As Integer
  951.  
  952.         i5215 = 1
  953.         i5209 = Rnd * 100 Mod 100 + 1
  954.         If i5209 >= 0 And i5209 <= 10 Then
  955.           i65534 = 1
  956.         Else
  957.  8676     If i5209 >= 11 And i5209 <= 20 Then
  958.             i65534 = 2
  959.           Else
  960.  8715       If i5209 >= 21 And i5209 <= 30 Then
  961.               i65534 = 3
  962.             Else
  963.  8754         If i5209 >= 31 And i5209 <= 40 Then
  964.                 i65534 = 4
  965.               Else
  966.  8793           If i5209 >= 41 And i5209 <= 50 Then
  967.                   i65534 = 5
  968.                 Else
  969.  8832             If i5209 >= 51 And i5209 <= 60 Then
  970.                     i65534 = 10
  971.                   Else
  972.  8871               If i5209 >= 61 And i5209 <= 70 Then
  973.                       i65534 = 15
  974.                     Else
  975.  8910                 If i5209 >= 71 And i5209 <= 80 Then
  976.                         i65534 = 20
  977.                       Else
  978.  8949                   If i5209 >= 81 And i5209 <= 90 Then
  979.                           i65534 = 25
  980.                         Else
  981.  8988                     If i5209 >= 91 And i5209 <= 99 Then
  982.                             i65534 = 30
  983.                           Else
  984.  9027                       If i5209 = 100 Then
  985.                               i65534 = 50
  986.                             End If
  987.                           End If
  988.                         End If
  989.                       End If
  990.                     End If
  991.                   End If
  992.                 End If
  993.               End If
  994.             End If
  995.           End If
  996.         End If
  997.  9049   s5211 = "An INCREASE of " + Str(i65534) + " Experience!"
  998.         i5192 = 11
  999.         i5194 = 23
  1000.         i65532 = Val(Trim(t26_4656.s55))
  1001.         i65532 = i65532 + i65534
  1002.         t26_4656.s55 = Str(i65532)
  1003.         If Len(t26_4656.s55) > 7 Then
  1004.           t26_4656.s55 = "9999999"
  1005.         End If
  1006.  9183   If Len(t26_4656.s55) <= 7 Then
  1007.           t26_4656.s55 = Pad(t26_4656.s55, 7)
  1008.         End If
  1009.  9231   Sub4851
  1010.       End Sub
  1011.  
  1012. '! Called 3 times
  1013.       Sub Sub9240
  1014.         Dim i65532 As Integer
  1015.         Dim i65534 As Integer
  1016.  
  1017.         i5215 = 1
  1018.         i5209 = Rnd * 100 Mod 100 + 1
  1019.         If i5209 >= 0 And i5209 <= 10 Then
  1020.           i65534 = 500
  1021.         Else
  1022.  9319     If i5209 >= 11 And i5209 <= 20 Then
  1023.             i65534 = 1000
  1024.           Else
  1025.  9359       If i5209 >= 21 And i5209 <= 30 Then
  1026.               i65534 = 1500
  1027.             Else
  1028.  9399         If i5209 >= 31 And i5209 <= 40 Then
  1029.                 i65534 = 2000
  1030.               Else
  1031.  9439           If i5209 >= 41 And i5209 <= 50 Then
  1032.                   i65534 = 3000
  1033.                 Else
  1034.  9479             If i5209 >= 51 And i5209 <= 60 Then
  1035.                     i65534 = 4000
  1036.                   Else
  1037.  9519               If i5209 >= 61 And i5209 <= 70 Then
  1038.                       i65534 = 5000
  1039.                     Else
  1040.  9559                 If i5209 >= 71 And i5209 <= 80 Then
  1041.                         i65534 = 7500
  1042.                       Else
  1043.  9599                   If i5209 >= 81 And i5209 <= 90 Then
  1044.                           i65534 = 10000
  1045.                         Else
  1046.  9639                     If i5209 >= 91 And i5209 <= 99 Then
  1047.                             i65534 = 12500
  1048.                           Else
  1049.  9679                       If i5209 = 100 Then
  1050.                               i65534 = 25000
  1051.                             End If
  1052.                           End If
  1053.                         End If
  1054.                       End If
  1055.                     End If
  1056.                   End If
  1057.                 End If
  1058.               End If
  1059.             End If
  1060.           End If
  1061.         End If
  1062.  9702   s5211 = "@0D@" + Str(i65534) + "@0D@ GOLD!! You're FILTHY RICH!"
  1063.         i5192 = 11
  1064.         i5194 = 22
  1065.         i65532 = Val(Trim(t26_4656.s62))
  1066.         i65532 = i65532 + i65534
  1067.         t26_4656.s62 = Str(i65532)
  1068.         If Len(t26_4656.s62) > 7 Then
  1069.           t26_4656.s62 = "9999999"
  1070.         End If
  1071.  9836   If Len(t26_4656.s62) <= 7 Then
  1072.           t26_4656.s62 = Pad(t26_4656.s62, 7)
  1073.         End If
  1074.  9884
  1075.       End Sub
  1076.  
  1077. '! Called 2 times
  1078.       Sub Sub9887
  1079.         Dim i65534 As Integer
  1080.  
  1081.         i5215 = 1
  1082.         i5209 = Rnd * 100 Mod 100 + 1
  1083.         If i5209 <= 10 Then
  1084.           GoTo 10024
  1085.         Else
  1086.  9954     If i5209 >= 11 And i5209 <= 95 Then
  1087.             GoTo 10334
  1088.           Else
  1089.  9992       If i5209 >= 96 And i5209 <= 100 Then
  1090.               GoTo 10163
  1091.             End If
  1092.           End If
  1093.         End If
  1094. 10024   s5211 = "A Sex Change Operation!"
  1095.         i5192 = 11
  1096.         i5194 = 21
  1097.         If UCase(t26_4656.s75) = "M" Then
  1098.           t26_4656.s75 = "F"
  1099.         Else
  1100. 10094     t26_4656.s75 = "M"
  1101.         End If
  1102. 10109   If Len(t26_4656.s75) > 1 Then
  1103.           t26_4656.s75 = Pad(t26_4656.s75, 1)
  1104.         End If
  1105. 10157   GoTo 10425
  1106. 10163   i5215 = 2
  1107.         s5211 = "DEATH! You have been sacrificed!!"
  1108.         i5192 = 11
  1109.         i5194 = 21
  1110.         i65534 = 0
  1111.         t26_4656.s142 = Str(i65534)
  1112.         t26_4656.s136 = "NO "
  1113.         If Len(t26_4656.s142) <= 4 Then
  1114.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  1115.         End If
  1116. 10280   If Len(t26_4656.s136) <= 3 Then
  1117.           t26_4656.s136 = Pad(t26_4656.s136, 3)
  1118.         End If
  1119. 10328   GoTo 10425
  1120. 10334   s5211 = "Total Healing!"
  1121.         i5192 = 11
  1122.         i5194 = 29
  1123.         t26_4656.s142 = t26_4656.s146
  1124.         If Len(t26_4656.s142) > 4 Then
  1125.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  1126.         End If
  1127. 10425   Sub4851
  1128.       End Sub
  1129.  
  1130. '! Called 1 time
  1131.       Sub Sub10434
  1132.         i5209 = Rnd * 100 Mod 100 + 1
  1133.         If i5209 >= 0 And i5209 <= 10 Then
  1134.           Sub8598
  1135.         Else
  1136. 10504     If i5209 >= 11 And i5209 <= 20 Then
  1137.             i5215 = 1
  1138.             s5211 = "Nada, Nothing, Zilch, Zero!"
  1139.             i5192 = 11
  1140.             i5194 = 24
  1141.           Else
  1142. 10566       If i5209 >= 21 And i5209 <= 30 Then
  1143.               Sub9240
  1144.             Else
  1145. 10604         If i5209 >= 31 And i5209 <= 40 Then
  1146.                 Sub9887
  1147.               Else
  1148. 10642           If i5209 >= 41 And i5209 <= 50 Then
  1149.                   i5215 = 1
  1150.                   s5211 = "Not a dang thing!"
  1151.                   i5192 = 11
  1152.                   i5194 = 28
  1153.                 Else
  1154. 10704             If i5209 >= 51 And i5209 <= 60 Then
  1155.                     Sub5596
  1156.                   Else
  1157. 10742               If i5209 >= 61 And i5209 <= 70 Then
  1158.                       Sub9240
  1159.                     Else
  1160. 10780                 If i5209 >= 71 And i5209 <= 80 Then
  1161.                         Sub7130
  1162.                       Else
  1163. 10818                   If i5209 >= 81 And i5209 <= 90 Then
  1164.                           Sub9240
  1165.                         Else
  1166. 10856                     If i5209 >= 91 And i5209 <= 100 Then
  1167.                             Sub9887
  1168.                           End If
  1169.                         End If
  1170.                       End If
  1171.                     End If
  1172.                   End If
  1173.                 End If
  1174.               End If
  1175.             End If
  1176.           End If
  1177.         End If
  1178. 10888
  1179.       End Sub
  1180.  
  1181. '! Called 1 time
  1182.       Sub Sub10891
  1183.         Dim l65504 As Long
  1184.         Dim i65508 As Integer
  1185.         Dim i65510 As Integer
  1186.         Dim l65512 As Long
  1187.         Dim s65516 As String
  1188.         Dim s65520 As String
  1189.         Dim s65524 As String
  1190.         Dim s65528 As String
  1191.         Dim s65532 As String
  1192.  
  1193.         Cls 
  1194.         MorePrompt(0)
  1195.         s65532 = s5293
  1196. 10942   For i65510 = 1 To Len(s65532) Step 1
  1197.           s65528 = Mid(s65532, i65510, 1)
  1198.           If s65528 = "/" Then
  1199.           Else
  1200. 11033       s65524 = s65524 + s65528
  1201.           End If
  1202. 11047   Next
  1203. 11070   l65512 = Val(s65524)
  1204.         If Exists(s4463 + "BETA.KEY") Then
  1205.           Open s4463 + "BETA.KEY" For Random As 1 Len = 44 '! This value should probably be replaced with a "SizeOf" expression
  1206.         Else
  1207. 11134     Print "     BETA KEY Missing......Aborting Game.....Contact Mark Bappe"
  1208.           Print "     at (770)922-9638 (BBS) or (770)922-4368 (Voice)"
  1209.           WaitEnter 
  1210.           End 
  1211.         End If
  1212. 11156   Get 1, 1, t29_5243 '! 44 bytes
  1213.         If l65512 > t29_5243.l40 Then
  1214.           Print "@0C@          BETA KEY HAS EXPIRED!!!!!....Aborting Program!!!!!!"
  1215.           Close 1
  1216.           WaitEnter 
  1217.           End 
  1218.         Else
  1219. 11214     s65520 = Str(l65512)
  1220.           s65516 = Str(t29_5243.l40)
  1221.           If Val(Mid(s65520, Len(s65520) - 1, 2)) > Val(Mid(s65516, Len(s65516) - 1, 2)) Then
  1222.             Print "@0C@          BETA KEY HAS EXPIRED!!!!!....Aborting Program!!!!!!!"
  1223.             Close 1
  1224.             WaitEnter 
  1225.             End 
  1226.           Else
  1227. 11320       s65532 = "The BoZax Bulletin (770)922-9638"
  1228.             If t29_5243.s0 <> Pad(s65532, 40) Then
  1229.               Print "@0C@          BETA KEY IS CORRUPT, OR HAS BEEN TAMPERED WITH....ABORTING!"
  1230.               Close 1
  1231.               WaitEnter 
  1232.               End 
  1233.             End If
  1234.           End If
  1235.         End If
  1236. 11370   Close 1
  1237.       End Sub
  1238.  
  1239. '! Called 1 time
  1240.       Sub Sub11398
  1241.         Dim s65528 As String
  1242.         Dim s65532 As String
  1243.  
  1244.         If Exists(s4463 + "lachex" + s5301 + ".dat") Then
  1245.           i4654 = FreeFile
  1246.           Open s4463 + "lachex" + s5301 + ".dat" For Input As i4654
  1247.           Input #i4654, s65532
  1248.           Close i4654
  1249.           s65528 = Left(s65532, 15)
  1250.           If UCase(s65528) = UCase(t26_4656.s0) Then
  1251.             GoTo 11680
  1252.           Else
  1253. 11557       GoTo 11569
  1254.           End If
  1255. 11563   Else
  1256. 11569     Cls 
  1257.           MorePrompt(0)
  1258.           Locate 3, 12
  1259.           Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
  1260.           Locate 5, 12
  1261.           Print "@09@This Program can only be run from a REGISTERED COPY"
  1262.           Locate 6, 12
  1263.           Print "of Lachrymator. This program cannot be run on it own...."
  1264.           Locate 7, 12
  1265.           Print "@09@According to internal file verification routines..."
  1266.           Locate 8, 12
  1267.           Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
  1268.           Locate 9, 12
  1269.           Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
  1270.         End If
  1271. 11673   Sub4269
  1272.         End 
  1273. 11680
  1274.       End Sub
  1275.